home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Franz PD
/
Franz PD Disk #177 (1992)(Rhein-Sieg-Soft).zip
/
Franz PD Disk #177 (1992)(Rhein-Sieg-Soft).adf
/
Warenhandelskalk.
/
Warenhandelskalk.mod
< prev
next >
Wrap
Text File
|
1992-06-14
|
4KB
|
79 lines
(* Warenhandelskalkulation @ 1992 by Matthias Gutt, Kantstr. 16, W-2120 Lüneburg
Ein Programm für den kaufmännischen Bereich *)
MODULE Warenhandelskalk;
FROM SYSTEM IMPORT ADR;
FROM RealInOut IMPORT ReadReal,WriteReal;
FROM InOut IMPORT WriteLn,WriteString;
VAR
Nettomenge,Stueckpreis,Einkaufspreis,Liefererrabatt,Zieleinkaufspreis: REAL;
Liefererskonto,Bareinkaufspreis,Bezugskosten,Bezugspreis,HKZ: REAL;
Selbstkosten,Gewinnzuschlag,Barverkaufspreis,Kundenskonto: REAL;
Vertreterprovision,Zielverkaufspreis,Hundert: REAL;
Kundenrabatt,Verkaufspreis,Umsatzsteuer,Ladenverkaufspreis: REAL;
BEGIN
WriteLn;
WriteString("Warenhandelskalkulation @ 1992 by Matthias Gutt, Kantstr.16");
WriteString("W-2120 Lüneburg ");
WriteLn;
WriteString("Nettomenge der Ware (Stückzahl):");ReadReal(Nettomenge);
WriteString("Stückpreis der Ware (DM) :");ReadReal(Stueckpreis);
Einkaufspreis:=Nettomenge*Stueckpreis;
WriteString("Einkaufspreis :");WriteReal(Einkaufspreis,3,4);WriteString("DM");
WriteLn;
WriteString("Liefererrabatt (%) :");ReadReal(Liefererrabatt);
Liefererrabatt:=Einkaufspreis*Liefererrabatt/100.0;
Zieleinkaufspreis:=Einkaufspreis-Liefererrabatt;
WriteString("Zieleinkaufspreis :");WriteReal(Zieleinkaufspreis,3,4);WriteString
("DM");
WriteLn;
WriteString("Liefererskonto (%) :");ReadReal(Liefererskonto);
Liefererskonto:=Zieleinkaufspreis*Liefererskonto/100.0;
Bareinkaufspreis:=Zieleinkaufspreis-Liefererskonto;
WriteString("Bareinkaufspreis :");WriteReal(Bareinkaufspreis,3,4);WriteString
("DM");
WriteLn;
WriteString("Bezugskosten :");ReadReal(Bezugskosten);
Bezugspreis:=Bareinkaufspreis+Bezugskosten;
WriteString("Bezugspreis :");WriteReal(Bezugspreis,3,4);WriteString("DM");
WriteLn;
WriteString("HKZ (%) :");ReadReal(HKZ);
HKZ:=Bezugspreis*HKZ/100.0;
Selbstkosten:=Bezugspreis+HKZ;
WriteString("Selbstkosten :");WriteReal(Selbstkosten,3,4);WriteString("DM");
WriteLn;
WriteString("Gewinnzuschlag (%) :");ReadReal(Gewinnzuschlag);
Gewinnzuschlag:=Selbstkosten*Gewinnzuschlag/100.0;
Barverkaufspreis:=Selbstkosten+Gewinnzuschlag;
WriteString("Barverkaufspreis :");WriteReal(Barverkaufspreis,3,4);WriteString
("DM");
WriteLn;
WriteString("Kundenskonto(%) :");ReadReal(Kundenskonto);
WriteString("Vertreterprovision(%) :");ReadReal(Vertreterprovision);
Kundenskonto:=(Barverkaufspreis*Kundenskonto)/(100.0-(Kundenskonto+Vertreterprovision));
Vertreterprovision:=(Barverkaufspreis*Vertreterprovision)/(100.0-(Kundenskonto+Vertreterprovision));
Zielverkaufspreis:=Barverkaufspreis+(Kundenskonto+Vertreterprovision);
WriteString("Zielverkaufspreis :");WriteReal(Zielverkaufspreis,3,4);WriteString
("DM");
WriteLn;
WriteString("Kundenrabatt(%) :");ReadReal(Kundenrabatt);
Hundert:=100.0-Kundenrabatt;
Kundenrabatt:=Zielverkaufspreis*Kundenrabatt/Hundert;
Verkaufspreis:=Zielverkaufspreis+Kundenrabatt;
WriteString("Verkaufspreis :");WriteReal(Verkaufspreis,3,4);WriteString("DM");
WriteLn;
WriteString("Umsatzsteuer (%) :");ReadReal(Umsatzsteuer);
Umsatzsteuer:=Verkaufspreis*Umsatzsteuer/100.0;
Ladenverkaufspreis:=Verkaufspreis+Umsatzsteuer;
WriteString("Ladenverkaufspreis :");WriteReal(Ladenverkaufspreis,3,4);WriteString
("DM");
END Warenhandelskalk.